Tempo de horário eleitoral disponível para cada candidato e voto

gráfico de linhas condidatos a prefeitura de campos

Principais assuntos das eleicoes municípais de 2020

gráfico de linha com o percentual de votos de acordo com as pesquisas eleitorais

banco_intencao %>% 
  filter(candidato %in% c("Wladimir Garotinho", "Caio Vianna", "Rafael Diniz", "Dr. Bruno Calil",
                           "Brancos/Nulos", "Professora Natália")) %>% 
  # mutate(data = case_when(data == "29/09/2020" ~ 2909,
  #                         data == "29/10/2020" ~ 2910,
  #                         data == "08/11/2020" ~ 0811)) %>% 
  ggplot(aes(x=data, y=percentual, fill = candidato, col = candidato))+
  geom_line(stat ="identity", size = 1.5)+
  geom_point(size= 2.5,  alpha = 0.8)+
  #scale_x_continuous(breaks =  c("29.09", "29.10", "08.11"))+
  scale_y_continuous(labels=function(x) paste0(x,"%"))+
  scale_colour_manual(values = c("#6794a7", "#014d64" ,"#76c0c1" ,"#01a2d9", "#7ad2f6", "#00887d"))+
  theme_fivethirtyeight()+
  ylab("Total de canddidatos") + 
  labs(title = "Intencão de voto", x = NULL, y = NULL, fill = NULL, col = NULL)+
  theme(axis.title.x = element_text(size = 10), 
        axis.text.y = element_text(size = 10),
        axis.text.x = element_text(size = 10),
        title = element_text(size = 10),
        panel.background = element_rect(fill = "white", colour = "white", color = "white"),
        plot.background = element_rect(fill = "white", colour = "white", color = "white"),
        legend.background=element_rect(fill="white"),
        legend.key = element_rect(fill = "white", color = "white"),
        strip.background=element_rect(fill="white", colour="white"), 
        panel.grid.major.x = element_line(colour= "#eceff2"),
        panel.grid.major.y = element_line(colour= "#eceff2"))
## geom_path: Each group consists of only one observation. Do you need to adjust
## the group aesthetic?

grafico de linha histórico político de campos

banco_familia %>% 
  # filter(candidato %in% c("Anthony Garotinho", "Sérgio Mendes", "Arnaldo Vianna", "Carlos Campista", "Rosinha Garotinho", "Rafael Diniz", "Wladimir Garotinho")) %>% 
  ggplot(aes(x=as_factor(ano_eleitoral), y=percent_votos, col = apoiador, group = line_x))+
  geom_line(stat = "identity", color = "#6794a7", size = 1.2, alpha = 0.7)+
  geom_point(size= 1.5, color = "#6794a7", alpha = 0.7)+
  geom_label_repel(aes(label = candidato),
                  size = 3,
                  box.padding   = 0.35,
                  point.padding = 0.5)+
  scale_y_continuous(labels=function(x) paste0(x,"%"))+
  #scale_x_continuous(breaks = c(2004,2008,2012,2016,2020))+
  theme_fivethirtyeight()+ 
  ylab("Votos")+
  labs(title = "Histórico político de Campos dos Goytacazes", x = NULL,  col = "Grupo famíliar")+
  theme(axis.text.y = element_text(size = 11),
        axis.title.y = element_text(size = 11),
        axis.title.x = element_text(size = 10),
        axis.text.x = element_text(size = 11),
        legend.text = element_text(size = 14),
        title = element_text(size = 10),
        panel.background = element_rect(fill = "white", colour = "white", color = "white"),
        plot.background = element_rect(fill = "white", colour = "white", color = "white"),
        legend.background=element_rect(fill="white"),
        legend.key = element_rect(fill = "white", color = "white"),
        strip.background=element_rect(fill="white", colour="white"), 
        panel.grid.major.x = element_line(colour= "#eceff2"),
        panel.grid.major.y = element_line(colour= "#eceff2"))

código certo - histórico político

## Warning: Ignoring unknown aesthetics: grpup

## Warning: Ignoring unknown aesthetics: grpup
## geom_path: Each group consists of only one observation. Do you need to adjust
## the group aesthetic?

intencao de votos e margem de erro

## Warning: Duplicated aesthetics after name standardisation: size
## Warning: position_dodge requires non-overlapping x intervals